perm filename PCROSS.ODF[PAS,SYS]1 blob
sn#452543 filedate 1979-07-05 generic text, type T, neo UTF8
1) PCRPAS.TRY[PAS,SYS] and 2) PCRSCO.TRY[PAS,SYS] 7-05-79 10:39 pages 1,1
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 2
1) (*DECLARATIONS*)
1) (*$T-,R50 *)
1) (*PROGRAM WHICH CREATES A CROSS REFERENCE LISTING WITH SIMULTANEOUS
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 2
2) (*$T- *)
2) (*PROGRAM WHICH CREATES A CROSS REFERENCE LISTING WITH SIMULTANEOUS
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 32
1) (**********************************************************************
1) *
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 29
2) (* CONTENTS *)
2) (* 2*) (*DECLARATIONS*)
2) (* 3*) (*INITPROCEDURES*)
2) (* 4*) (*CHECKOPTIONS[*) (*SETSWITCH*) (*]*)
2) (* 5*) (*PAGE AND LINE CONTROL:*) (*HEADER*) (*NEWPAGE*)
2) (* 6*) (*BLOCK[*) (*OUTPUT PROCEDURES:*) (*ERROR*) (*WRITELINE[*) (*USEDOTS*) (*]*)
2) (* 7*) (*SCANNER:*) (*INSYMBOL[*) (*READBUFFER*) (*RESWORD*) (*FINDNAME*) (*PARENTHESE*) (*DOCOMMENT*) (*]*)
2) (* 8*) (*PARSING OF DECLARATIONS:*) (*RECDEF[*) (*CASEDEF*) (*PARENTHESE*) (*]*)
2) (* 9*) (*PARSING OF STATEMENTS:*) (*STATEMENT[*) (*AND ITS PARTS*) (*]*)
2) (*10*) (*]BLOCK*)
2) (*11*) (*PRINT_XREF_LIST[*) (*CHECKPAGE*) (*WRITEPROCNAME*) (*WRITELINENR*) (*DUMPCALL*) (*]*)
2) (*12*) (*MAIN PROGRAM*)
2) (*DECLARATIONS*)
2) (**********************************************************************
2) *
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 65
1) * JAN-79. ARMANDO R. RODRIGUEZ (STANFORD)
1) * + ADDAPT IT TO SAIL CONVENTIONS.
1) *
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 79
2) * MAR-79. ARMANDO R. RODRIGUEZ
2) * + IMPLEMENT STATEMENT COUNTS.
2) *
2) *
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 78
1) PROGRAM pcross;
1) CONST
1) version ='PCROSS/SAIL FROM 25-JAN-79';
1) PCRPAS.TRY[PAS,SYS] and 2) PCRSCO.TRY[PAS,SYS] 7-05-79 10:39 pages 1,1
1) maxline = 51; (*MAXIMUM NUMBER OF LINES PER PAGE, IGNORING HEADER*)
1) maxcrossch = 120; (*DEFAULT MAXIMUM LINE LENGTH IN CROSSLIST*)
1) margin = 14;
1) max_line_count = 7777B; (*LIMIT OF LINES/EDIT-PAGE*)
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 93
2) PROGRAM pcross ;
2) CONST
2) version ='PCROSS/LOTS FROM 31-MAR-79';
2) verlength = 11;
2) maxline = 57; (*MAXIMUM NUMBER OF LINES PER PAGE, IGNORING HEADER*)
2) maxch = 116; (*MAXIMUM LINE LENGTH IN CROSSLIST*)
2) max_line_count = 7777B; (*LIMIT OF LINES/EDIT-PAGE*)
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 92
1) dots = ' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .';
1) TYPE
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 107
2) dots = ' . . . . . . . . . . . . . . . . . . . . . . . . . .';
2) TYPE
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 99
1) missgrpar,missgquote,missgmain,missgpoint,linetoolong);
1) lineptrty = ↑line;
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 114
2) missgrpar,missgquote,missgmain,missgpoint);
2) lineptrty = ↑line;
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 185
1) pagecnt, (*COUNTS THE FILE PAGES*)
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 200
2) countline, (*NEXT LINE FOR STATEMENT COUNTER*)
2) countpage, (*PAGE OF NEXT LINE FOR STATEMENT COUNTER*)
2) counttimes, (*STATEMENT COUNT OF COUNTLINE/COUNTPAGE*)
2) maxcounttimes, (*COUNT OF THE LINE WITH HIGHER COUNTTIMES*)
2) maxcountline, (*LINE FOR MAXCOUNTTIMES*)
2) maxcountpage, (*PAGE FOR MAXCOUNTTIMES*)
2) pagecnt, (*COUNTS THE FILE PAGES*)
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 188
1) maxch, (*MAXIMUM LINE LENGTH IN CROSSLIST*)
1) PCRPAS.TRY[PAS,SYS] and 2) PCRSCO.TRY[PAS,SYS] 7-05-79 10:39 pages 1,1
1) reallincnt, (*COUNTS THE LINES PER PRINT PAGE*)
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 209
2) reallincnt, (*COUNTS THE LINES PER PRINT PAGE*)
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 199
1) buffer : ARRAY [-1..302] OF ascii; (*INPUT BUFFER*)
1) (* BUFFER HAS 2 EXTRA POSITIONS ON THE LEFT AND ONE ON THE RIGHT*)
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 219
2) buffer : ARRAY [-1..202] OF ascii; (*INPUT BUFFER*)
2) (* BUFFER HAS 2 EXTRA POSITIONS ON THE LEFT AND ONE ON THE RIGHT*)
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 205
1) date_text,time_text: alfa; (*HEADING DATE AND TIME*)
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 225
2) sourcepage,
2) sourceline: 0..99999;
2) date_text,time_text: alfa; (*HEADING DATE AND TIME*)
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 227
1) (* (*OTHER CONTROLS*)
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 248
2) counting, (*SET IF A .KNT EXISTS, FOR STATEMENT COUNTS*)
2) (* (*OTHER CONTROLS*)
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 231
1) commzone, (*SET WHILE SCANNING THE FIRST LINE OF A COMMENT*)
1) eoline, (*SET AT END ON INPUT LINE*)
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 254
2) eoline, (*SET AT END ON INPUT LINE*)
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 265
1) link_name,old_name,
1) new_name, cross_name: pack9; (*USED TO GET THE PARAMETER FILES*)
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 287
2) countfilename, (*NAME OF THE STATEMENT COOUNTS FILE*)
2) link_name,
2) old_name,
2) new_name, cross_name: pack9; (*USED TO GET THE PARAMETER FILES*)
1) PCRPAS.TRY[PAS,SYS] and 2) PCRSCO.TRY[PAS,SYS] 7-05-79 10:39 pages 1,1
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 274
1) (*INITPROCEDURES*)
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 297
2) countfile: FILE OF integer; (*FILE FOR STATEMENT COUNTS*)
2) (*INITPROCEDURES*)
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 279
1) increment:=1;
1) feed:=3;
1) indentbegin:=0;
1) begexd:=0;
1) rescase:=true;
1) nonrcase:=false;
1) comcase:=true;
1) strcase:=true;
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 304
2) increment:=100;
2) feed:=4;
2) indentbegin:=0;
2) begexd:=0;
2) goodversion := -1;
2) rescase:=true;
2) nonrcase:=false;
2) comcase:=false;
2) strcase:=true;
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 295
1) goodversion := -1;
1) new_name:=' ';
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 321
2) new_name:=' ';
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 363
1) END;
1) INITPROCEDURE;
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 388
2) END (*RESERVED WORDS*);
2) INITPROCEDURE;
***************
1) PCRPAS.TRY[PAS,SYS] and 2) PCRSCO.TRY[PAS,SYS] 7-05-79 10:39 pages 1,1
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 378
1) PROCEDURE reinitialize;
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 403
2) INITPROCEDURE;
2) BEGIN (*ERROR MESSAGES*)
2) errmsg[begerrinblkstr] := 'ERROR IN BLOCK STRUCTURE: BEGIN EXPECTED';
2) errmsg[missgenduntil ] := 'MISSING ''END'' OR ''UNTIL'' NUMBER ';
2) errmsg[missgthen ] := 'MISSING ''THEN'' FOR ''IF'' NUMBER ';
2) errmsg[missgof ] := 'MISSING ''OF'' IN ''CASE'' NUMBER ';
2) errmsg[missgexit ] := 'MISSING ''EXIT'' IN ''LOOP'' NUMBER ';
2) errmsg[missgrpar ] := 'MISSING RIGHT PARENTHESIS OR BRACKET ';
2) errmsg[missgquote ] := 'MISSING CLOSING QUOTE ON THIS LINE ';
2) errmsg[missgmain ] := 'WARNING: THIS FILE HAS NO MAIN BODY ';
2) errmsg[missgpoint ] := 'MISSING CLOSING POINT AT END OF PROGRAM.';
2) END (*ERROR MESSAGES*);
2) PROCEDURE reinitialize;
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 389
1) blocknr := 0;
1) level := 0;
1) pagecnt := 1;
1) pagecnt2 := 0;
1) errcount := 0;
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 428
2) pagecnt := 1;
2) pagecnt2 := 0;
2) sourcepage := 1;
2) sourceline := 0;
2) maxcountpage := 0;
2) maxcountline := 0;
2) maxcounttimes := 0;
2) blocknr := 0;
2) level := 0;
2) errcount := 0;
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 401
1) commzone := false;
1) bmarktext := ' ';
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 445
2) bmarktext := ' ';
***************
1) PCRPAS.TRY[PAS,SYS] and 2) PCRSCO.TRY[PAS,SYS] 7-05-79 10:39 pages 1,1
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 441
1) PROCEDURE initialize;
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 484
2) PROCEDURE getcounts;
2) BEGIN
2) IF eof(countfile) THEN
2) BEGIN
2) countline := 99999;
2) countpage := 99999;
2) END
2) ELSE
2) BEGIN
2) countpage := countfile↑;
2) get(countfile);
2) countline := countfile↑;
2) get(countfile);
2) counttimes := countfile↑;
2) get(countfile);
2) END;
2) END (*GETCOUNTS*);
2) PROCEDURE initialize;
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 453
1) errmsg[begerrinblkstr] := 'ERROR IN BLOCK STRUCTURE: BEGIN EXPECTED';
1) errmsg[missgenduntil ] := 'MISSING ''END'' OR ''UNTIL'' NUMBER ';
1) errmsg[missgthen ] := 'MISSING ''THEN'' FOR ''IF'' NUMBER ';
1) errmsg[missgof ] := 'MISSING ''OF'' IN ''CASE'' NUMBER ';
1) errmsg[missgexit ] := 'MISSING ''EXIT'' IN ''LOOP'' NUMBER ';
1) errmsg[missgrpar ] := 'MISSING RIGHT PARENTHESIS OR BRACKET ';
1) errmsg[missgquote ] := 'MISSING CLOSING QUOTE ON THIS LINE ';
1) errmsg[missgmain ] := 'WARNING: THIS FILE HAS NO MAIN BODY ';
1) errmsg[missgpoint ] := 'MISSING CLOSING POINT AT END OF PROGRAM.';
1) errmsg[linetoolong ] := 'LINE TOO LONG. I''M GONNA GET CONFUSED. ';
1) FOR i := -1 TO 201 DO
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 514
2) FOR i := -1 TO 201 DO
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 499
1) ! /CWIDTH:<N> MAXIMUM LINE LENGTH IN CROSSLIST 120
1) ! /INDENT:<N> INDENTATION BETWEEN LEVELS. 4
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 550
2) ! /INDENT:<N> INDENTATION BETWEEN LEVELS. 4
***************
1) PCRPAS.TRY[PAS,SYS] and 2) PCRSCO.TRY[PAS,SYS] 7-05-79 10:39 pages 1,1
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 515
1) ! '*'-')' OFF
1) !
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 565
2) ! '*'-')' ON
2) !
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 524
1) ! /COMM:<L> SAME FOR COMMENTS. U
1) ! /STR:<L> SAME FOR STRINGS. U
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 574
2) ! /COMM:<L> SAME FOR COMMENTS. L
2) ! /STR:<L> SAME FOR STRINGS. U
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 532
1) try: integer;
1) fromtmp: boolean;
1) brkchar: char;
1) PROCEDURE setswitch(opt:alfa;VAR switch:boolean);
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 582
2) brkchar: char;
2) try: integer;
2) fromtmp: boolean;
2) PROCEDURE setswitch(opt:alfa;VAR switch:boolean);
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 551
1) askfilename(old_name,old_prot,old_ppn,old_dev,oldfileid,programname,false,fromtmp,brkchar);
1) startfile(oldsource,old_name,old_prot,old_ppn,old_dev,true,oldfileid,'PAS');
1) IF NOT option ('NONEW ') THEN
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 600
2) getparameter(oldsource,oldfileid,programname,true);
2) getstatus(oldsource,old_name,old_prot,old_ppn,old_dev);
2) countfilename := old_name;
2) countfilename[7] := 'K';
2) countfilename[8] := 'N';
2) countfilename[9] := 'T';
2) reset(countfile,countfilename);
2) IF eof(countfile) THEN
2) reset (countfile,countfilename,old_prot,old_ppn,old_dev);
2) counting := NOT eof(countfile);
1) PCRPAS.TRY[PAS,SYS] and 2) PCRSCO.TRY[PAS,SYS] 7-05-79 10:39 pages 1,1
2) IF counting THEN
2) BEGIN
2) renewing := false;
2) getcounts;
2) END;
2) IF NOT option ('NONEW ') THEN
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 558
1) IF NOT option ('NONEW ') THEN
1) BEGIN
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 620
2) IF renewing AND NOT option ('NONEW ') THEN
2) BEGIN
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 575
1) cross_name[7]:='C';
1) cross_name[8]:='R';
1) cross_name[9]:='L';
1) END;
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 637
2) cross_name[7]:='L';
2) cross_name[8]:='S';
2) cross_name[9]:='T';
2) END;
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 582
1) renewing:= NOT option('NONEW ');
1) crossing:= NOT option('NOCROSS ');
1) IF crossing THEN
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 643
2) getstatus(oldsource,old_name,old_prot,old_ppn,old_dev);
2) renewing:= renewing AND NOT option('NONEW ');
2) crossing:= NOT option('NOCROSS ');
2) counting := counting AND crossing;
2) IF crossing THEN
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 606
1) IF option('CWIDTH ') THEN
1) getoption('CWIDTH ',maxch)
1) ELSE
1) PCRPAS.TRY[PAS,SYS] and 2) PCRSCO.TRY[PAS,SYS] 7-05-79 10:39 pages 1,1
1) maxch := maxcrossch;
1) maxch := maxch - margin;
1) IF option('INDENT ') THEN
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 672
2) IF option('INDENT ') THEN
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 668
1) write(crosslist,version:26,'[ ':13,prog_name,' ]',' ':13, date_text, ' ', time_text);
1) writeln (crosslist, 'PAGE ':13, pagecnt:3, '-', pagecnt2:2, name:14);
1) writeln(crosslist);
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 728
2) write(crosslist,version:28,' ':10,old_name:6,'.',old_name[7],old_name[8],old_name[9],
2) ' [ ',prog_name,' ]',' ':6, date_text, ' ', time_text);
2) writeln (crosslist, 'PAGE ':15, pagecnt:3, '-', pagecnt2:2, name:15);
2) writeln(crosslist);
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 710
1) missgof, missgrpar,missgmain, missgpoint,linetoolong,
1) missgquote : write(crosslist, errmsg[errnr]);
1) END;
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 773
2) missgof, missgrpar,
2) missgquote : write(crosslist, errmsg[errnr]);
2) missgmain : write(crosslist, errmsg[missgmain]);
2) END;
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 721
1) missgof, missgrpar,missgmain, missgpoint,linetoolong,
1) missgquote : write(tty, errmsg[errnr]);
1) END;
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 785
2) missgof, missgrpar,
2) missgquote : write(tty, errmsg[errnr]);
2) missgmain : write(tty, errmsg[missgmain]);
2) END;
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 735
1) BEGIN (*USEDOTS*)
1) (*USE EITHER DOTS OR SPACES TO MAKE INDENTATION*)
1) IF lastspaces > 0 THEN
1) PCRPAS.TRY[PAS,SYS] and 2) PCRSCO.TRY[PAS,SYS] 7-05-79 10:39 pages 1,1
1) IF doting AND ((reallincnt MOD 5) = 4) THEN
1) write(crosslist,dots: lastspaces - 1, ' ')
1) ELSE
1) BEGIN
1) IF lastspaces > 7 THEN
1) lastspaces := lastspaces + 6;
1) write(crosslist, tabs: lastspaces DIV 8, ' ': lastspaces MOD 8);
1) END;
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 800
2) VAR
2) situation : (number, nonumber);
2) BEGIN (*USEDOTS*)
2) (*USE EITHER DOTS OR SPACES TO MAKE INDENTATION*)
2) IF counting THEN
2) BEGIN
2) WHILE (sourcepage > countpage) DO
2) getcounts;
2) IF sourcepage = countpage THEN
2) WHILE sourceline > countline DO
2) getcounts;
2) IF (countline = sourceline) AND (countpage = sourcepage) THEN
2) BEGIN
2) write(crosslist,counttimes:6);
2) IF counttimes > maxcounttimes THEN
2) BEGIN
2) maxcounttimes := counttimes;
2) maxcountline := linecnt;
2) maxcountpage := pagecnt;
2) END;
2) getcounts;
2) situation := number;
2) END
2) ELSE
2) BEGIN
2) IF doting AND ((reallincnt MOD 5) = 4) THEN
2) write(crosslist,' .')
2) ELSE
2) write(crosslist,' ');
2) situation := nonumber;
2) lastspaces := lastspaces + 4;
2) END;
2) END;
2) IF lastspaces >= 0 THEN
2) IF doting AND ((reallincnt MOD 5) = 4) THEN
2) write(crosslist,dots: lastspaces,' ')
2) ELSE
2) BEGIN
2) write(crosslist,' ', tabs: lastspaces DIV 8, ' ': lastspaces MOD 8);
1) PCRPAS.TRY[PAS,SYS] and 2) PCRSCO.TRY[PAS,SYS] 7-05-79 10:39 pages 1,1
2) IF counting AND (lastspaces > 7) THEN
2) IF situation = nonumber THEN
2) write(crosslist,' ')
2) ELSE
2) write(crosslist,' ');
2) END;
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 763
1) linecnt := linecnt + 1;
1) IF crossing THEN (* 2.1. WRITE THE LINE IN CROSSLIST *)
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 864
2) IF crossing THEN (* 2.1. WRITE THE LINE IN CROSSLIST *)
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 796
1) write (crosslist, linecnt * increment : 3,' '); (* 2.1.2. LINENUMBER AND INDENTATION *)
1) usedots(lastspaces);
1) maxchar:=maxch+i-lastspaces-1;
1) FOR j := i TO position DO (* 2.1.3. CONTENTS OF THE LINE *)
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 895
2) write (crosslist, linecnt * increment : 5); (* 2.1.2. LINENUMBER AND INDENTATION *)
2) usedots(lastspaces);
2) maxchar:=maxch+i-lastspaces-1;
2) IF counting THEN
2) maxchar := maxchar - 6;
2) FOR j := i TO position DO (* 2.1.3. CONTENTS OF THE LINE *)
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 808
1) write(crosslist,tabs:1,' ':6);
1) IF commzone THEN
1) usedots(spaces + 1)
1) ELSE
1) usedots(lastspaces+feed);
1) maxchar:=maxch+j-lastspaces-1;
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 909
2) write(crosslist,tabs:2);
2) usedots(lastspaces+feed-1);
2) maxchar:=maxch+j-lastspaces-1;
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 839
1) IF (linenb = ' ') OR (linecnt >= maxinc) THEN
1) PCRPAS.TRY[PAS,SYS] and 2) PCRSCO.TRY[PAS,SYS] 7-05-79 10:39 pages 1,1
1) newpage;
1) END (* IF I <= POSITION *);
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 937
2) IF (linenb = ' ') THEN
2) BEGIN
2) newpage;
2) sourcepage := sourcepage + 1;
2) END
2) ELSE
2) IF (linecnt >= maxinc) THEN
2) newpage;
2) END (* IF I <= POSITION *);
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 846
1) commzone := false;
1) END (*WRITELINE*) ;
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 950
2) END (*WRITELINE*) ;
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 852
1) 1, 111;
1) VAR
1) incondcomp: boolean;
1) oldspacesmark, (*ALTER ZEICHENVORSCHUB BEI FORMATIERUNG VON KOMMENTAREN*)
1) i: integer;
1) PROCEDURE readbuffer;
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 955
2) 1;
2) VAR
2) oldspacesmark, (*ALTER ZEICHENVORSCHUB BEI FORMATIERUNG VON KOMMENTAREN*)
2) i: integer;
2) incondcomp: boolean;
2) PROCEDURE readbuffer;
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 869
1) BEGIN (*READLINE*)
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 972
2) i: integer;
2) BEGIN (*READLINE*)
***************
1) PCRPAS.TRY[PAS,SYS] and 2) PCRSCO.TRY[PAS,SYS] 7-05-79 10:39 pages 1,1
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 878
1) newpage
1) ELSE (*HANDLE BLANK LINE*)
1) BEGIN
1) linecnt := linecnt + 1;
**** File 2) PCRSCO.TRY[PAS,SYS], Page 1 line 982
2) BEGIN
2) newpage;
2) sourcepage := sourcepage + 1;
2) END
2) ELSE (*HANDLE BLANK LINE*)
2) BEGIN
2) IF (linenb = '-----') AND counting THEN
2) sourceline := sourceline + 1;
2) linecnt := linecnt + 1;
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 885
1) header(curprocname);
1) reallincnt := reallincnt + 1;
1) writeln (crosslist, chr(ht),' ',linecnt * increment : 3);
1) END;
**** File 2) PCRSCO.TRY[PAS,SYS], Page 2 line 11
2) header (curprocname);
2) reallincnt := reallincnt + 1;
2) writeln (crosslist, chr(ht),' ',linecnt * increment : 5);
2) END;
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 906
1) IF bufflen > 300 THEN
1) error(linetoolong);
1) buffer[bufflen+1] := ' '; (*SO WE CAN ALWAYS BE ONE CHAR AHEAD*)
**** File 2) PCRSCO.TRY[PAS,SYS], Page 2 line 32
2) buffer[bufflen+1] := ' '; (*SO WE CAN ALWAYS BE ONE CHAR AHEAD*)
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 911
1) getlinenr (linenb);
1) readln(oldsource);
**** File 2) PCRSCO.TRY[PAS,SYS], Page 2 line 35
2) getlinenr (oldsource,linenb);
2) IF counting THEN
2) IF linenb = '-----' THEN
2) sourceline := sourceline + 1
1) PCRPAS.TRY[PAS,SYS] and 2) PCRSCO.TRY[PAS,SYS] 7-05-79 10:39 pages 1,2
2) ELSE
2) BEGIN
2) sourceline := 0;
2) FOR i := 1 TO 5 DO
2) sourceline := sourceline * 10 + ord(linenb[i]) - ord('0');
2) END;
2) linecnt := linecnt + 1;
2) readln(oldsource);
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 1 line 934
1) eoline := bufferptr >= bufflen + 2;
1) END (*READBUFFER*) ;
**** File 2) PCRSCO.TRY[PAS,SYS], Page 2 line 68
2) eoline := bufferptr = bufflen + 2;
2) END (*READBUFFER*) ;
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 2 line 139
1) VAR
1) i, lastblank: integer;
1) PROCEDURE expand (here: integer; firstch, secondch: char);
**** File 2) PCRSCO.TRY[PAS,SYS], Page 2 line 254
2) PROCEDURE expand (here: integer; firstch, secondch: char);
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 2 line 161
1) spaces := spaces + bufferptr - buffmark - 1;
1) oldspaces := true;
1) commzone := spaces < maxch;
1) IF NOT commzone THEN
1) spaces := lastspaces;
1) IF dellength = 2 THEN
**** File 2) PCRSCO.TRY[PAS,SYS], Page 2 line 273
2) spaces := spaces + bufferptr - 1;
2) oldspaces := true;
2) IF dellength = 2 THEN
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 2 line 176
1) buffer[bufferptr] := lower[buffer[bufferptr]];
1) UNTIL (ch = secondch) AND (buffer[bufferptr-2] = firstch) OR eob;
**** File 2) PCRSCO.TRY[PAS,SYS], Page 2 line 285
2) buffer[bufferptr-1] := lower[buffer[bufferptr-1]];
1) PCRPAS.TRY[PAS,SYS] and 2) PCRSCO.TRY[PAS,SYS] 7-05-79 10:39 pages 2,2
2) UNTIL (ch = secondch) AND (buffer[bufferptr-2] = firstch) OR eob;
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 2 line 191
1) buffer[bufferptr] := lower[buffer[bufferptr]];
1) UNTIL (ch = firstch) OR eob;
**** File 2) PCRSCO.TRY[PAS,SYS], Page 2 line 300
2) buffer[bufferptr-1] := lower[buffer[bufferptr-1]];
2) UNTIL (ch = firstch) OR eob;
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 2 line 196
1) REPEAT
1) readbuffer;
1) UNTIL ch <> ' ';
1) spaces := oldspacesmark;
1) END (*DOCOMMENT*);
1) PROCEDURE skip_e_directory;
1) BEGIN (*SKIP_E_DIRECTORY*)
1) WHILE NOT (oldsource↑ = ';') DO
1) BEGIN
1) IF eoln(oldsource) THEN
1) linecnt := linecnt + 1;
1) get(oldsource);
1) END;
1) get(oldsource);
1) get(oldsource);
1) linecnt :=linecnt + 2;
1) bufferptr := 0;
1) eoline := true;
1) END (*SKIP_E_DIRECTORY*);
1) (*] INSYMBOL*)
1) BEGIN (*INSYMBOL*)
1) 111:
1) syleng := 0;
1) WHILE (ch IN ['_', '(', ' ', '$', '?', '@', '%', '/', '\','"']) AND NOT eob DO
1) CASE ch OF
1) '(':
1) IF (buffer[bufferptr] = '*') THEN
1) docomment (2,'*',')', false)
1) ELSE
1) GOTO 1;
1) '/':
1) IF buffer[bufferptr] = '*' THEN
1) docomment (2,'*','/',cleaning)
1) ELSE
1) PCRPAS.TRY[PAS,SYS] and 2) PCRSCO.TRY[PAS,SYS] 7-05-79 10:39 pages 2,2
1) GOTO 1;
1) '%':
1) BEGIN
1) IF NOT anyversion THEN
1) WHILE buffer[bufferptr] IN digits DO
1) BEGIN
1) IF ord(buffer[bufferptr]) - ord('0') = goodversion THEN
1) incondcomp := true;
1) readbuffer;
1) END;
1) IF incondcomp OR anyversion THEN
1) BEGIN
1) readbuffer;
1) readbuffer;
1) END
1) ELSE
1) docomment (1,'\','\',cleaning);
1) END;
1) '"':
1) docomment(1,'"','"',cleaning);
1) OTHERS:
1) readbuffer;
1) END;
1) CASE ch OF
**** File 2) PCRSCO.TRY[PAS,SYS], Page 2 line 305
2) spaces := oldspacesmark;
2) oldspaces := true;
2) END (*DOCOMMENT*);
2) BEGIN (*INSYMBOL*)
2) syleng := 0;
2) WHILE (ch IN ['_', '(', ' ', '$', '?', '!', '@', '%', '/', '\']) AND NOT eob DO
2) BEGIN
2) IF (ch = '(') AND (buffer[bufferptr] = '*') THEN
2) docomment (2,'*',')', false)
2) ELSE
2) IF (ch = '/') AND (buffer[bufferptr] = '*') THEN
2) docomment (2,'*','/',cleaning)
2) ELSE
2) IF ch = '%' THEN
2) IF buffer[bufferptr] IN digits THEN
2) IF anyversion OR (ord(buffer[bufferptr]) - ord ('0') = goodversion) THEN
2) bufferptr := bufferptr + 1
2) ELSE
2) docomment (1,'\','\',cleaning)
2) ELSE
2) docomment (1,'\','\',cleaning)
2) ELSE
2) IF ch IN ['(', '/'] THEN
1) PCRPAS.TRY[PAS,SYS] and 2) PCRSCO.TRY[PAS,SYS] 7-05-79 10:39 pages 2,2
2) GOTO 1;
2) readbuffer;
2) END;
2) CASE ch OF
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 2 line 270
1) IF firstpage AND (sy = 'COMMENT ') THEN
1) BEGIN
1) skip_e_directory;
1) GOTO 111;
1) END
1) ELSE
1) IF NOT resword THEN
1) BEGIN
1) syty := ident ;
1) findname(curproc);
1) IF NOT nonrcase THEN
1) FOR i := bufferptr - syleng - 1 TO bufferptr - 2 DO
1) buffer[i] := lower[buffer[i]];
1) END
1) END;
**** File 2) PCRSCO.TRY[PAS,SYS], Page 2 line 346
2) IF NOT resword THEN
2) BEGIN
2) syty := ident ;
2) findname(curproc);
2) IF NOT nonrcase THEN
2) FOR i := bufferptr - syleng - 1 TO bufferptr - 2 DO
2) buffer[i] := lower[buffer[i]];
2) END
2) END;
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 2 line 325
1) '!':
1) BEGIN
**** File 2) PCRSCO.TRY[PAS,SYS], Page 2 line 395
2) '"':
2) BEGIN
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 2 line 825
1) write(tty,version:12,' ',new_name:6,' [ ',prog_name,' ] PAGE');
1) FOR i := 1 TO pagecnt DO
1) PCRPAS.TRY[PAS,SYS] and 2) PCRSCO.TRY[PAS,SYS] 7-05-79 10:39 pages 2,2
**** File 2) PCRSCO.TRY[PAS,SYS], Page 2 line 895
2) write(tty,version:verlength,' :',old_name:6,' [ ',prog_name,' ] PAGE');
2) FOR i := 1 TO pagecnt DO
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 2 line 942
1) itemlen: integer; (*LENGTH OF A PRINTED LINENUMBER, 6 OR 9*)
1) thiscall : calledty;
**** File 2) PCRSCO.TRY[PAS,SYS], Page 3 line 12
2) itemlen: integer; (*LENGTH OF A PRINTED LINENUMBER, 9 OR 12*)
2) thiscall : calledty;
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 2 line 966
1) write (crosslist, linecnt * increment:5, ' ');
1) IF depth > 2 THEN
**** File 2) PCRSCO.TRY[PAS,SYS], Page 3 line 36
2) write (crosslist, linecnt * increment:6, ' ');
2) IF depth > 2 THEN
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 2 line 972
1) mark:2, externflag:2, chr(ht), linenr * increment : 3);
1) IF listpgnr OR (pagenr > 1) THEN
**** File 2) PCRSCO.TRY[PAS,SYS], Page 3 line 42
2) mark:2, externflag:2, chr(ht), linenr * increment : 8);
2) IF listpgnr OR (pagenr > 1) THEN
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 2 line 977
1) write (crosslist, begline * increment: 5);
1) IF listpgnr THEN
1) write (crosslist, '/', begpage: 2);
1) write (crosslist, endline * increment: 5);
1) IF listpgnr THEN
**** File 2) PCRSCO.TRY[PAS,SYS], Page 3 line 47
2) write (crosslist, begline * increment: 10);
2) IF listpgnr THEN
2) write (crosslist, '/', begpage: 2);
2) write (crosslist, endline * increment: 10);
2) IF listpgnr THEN
***************
1) PCRPAS.TRY[PAS,SYS] and 2) PCRSCO.TRY[PAS,SYS] 7-05-79 10:39 pages 2,3
**** File 1) PCRPAS.TRY[PAS,SYS], Page 2 line 998
1) maxcnt := (maxch+16 - spaces) DIV itemlen; (*ITEMS ARE ITEMLEN CHARS EACH*)
1) link := listptr↑.first;
**** File 2) PCRSCO.TRY[PAS,SYS], Page 3 line 68
2) maxcnt := (maxch+20 - spaces) DIV itemlen; (*ITEMS ARE ITEMLEN CHARS EACH*)
2) link := listptr↑.first;
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 3 line 11
1) write (crosslist, linenr * increment : 4);
1) IF listpgnr THEN
1) write(crosslist, '/',pagenr : 2);
1) write (crosslist,declflag);
1) link := contlink;
**** File 2) PCRSCO.TRY[PAS,SYS], Page 3 line 81
2) write (crosslist, linenr * increment : 6);
2) IF listpgnr THEN
2) write(crosslist, '/',pagenr : 2);
2) write (crosslist,declflag,' ');
2) link := contlink;
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 3 line 51
1) itemlen := 9
1) ELSE
1) itemlen := 6;
1) WITH firstname ['M']↑ DO (*DELETE 'MAIN'*)
**** File 2) PCRSCO.TRY[PAS,SYS], Page 3 line 119
2) itemlen := 12
2) ELSE
2) itemlen := 9;
2) WITH firstname ['M']↑ DO (*DELETE 'MAIN'*)
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 3 line 74
1) IF reallincnt < maxline THEN
1) page(crosslist);
1) header (blanks);
**** File 2) PCRSCO.TRY[PAS,SYS], Page 3 line 142
2) header (blanks);
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 3 line 79
1) reallincnt:= reallincnt + 3;
1) PCRPAS.TRY[PAS,SYS] and 2) PCRSCO.TRY[PAS,SYS] 7-05-79 10:39 pages 3,3
**** File 2) PCRSCO.TRY[PAS,SYS], Page 3 line 145
2) write(tty,'CROSS REFERENCE..'); break;
2) reallincnt:= reallincnt + 3;
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 3 line 107
1) IF reallincnt < maxline THEN
1) page(crosslist);
1) header ('*DECLARAT*');
**** File 2) PCRSCO.TRY[PAS,SYS], Page 3 line 174
2) header ('*DECLARAT*');
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 3 line 113
1) reallincnt:= reallincnt + 4;
**** File 2) PCRSCO.TRY[PAS,SYS], Page 3 line 178
2) write(tty,' PROCEDURE DECLARATIONS..'); break;
2) reallincnt:= reallincnt + 4;
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 3 line 125
1) IF reallincnt < maxline THEN
1) page(crosslist);
1) header ('* CALLS * ');
**** File 2) PCRSCO.TRY[PAS,SYS], Page 3 line 191
2) header ('* CALLS * ');
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 3 line 131
1) reallincnt := reallincnt + 4;
**** File 2) PCRSCO.TRY[PAS,SYS], Page 3 line 195
2) write(tty,' PROCEDURE CALLS..'); break;
2) reallincnt := reallincnt + 4;
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 3 line 151
1) getstatus(oldsource,new_name,new_prot,new_ppn,new_dev);
1) initialize;
1) (*FIND MAX POSSIBLE LINE NUMBER WITH THIS INCREMENT*)
1) maxinc := (1000 DIV increment);
1) LOOP
**** File 2) PCRSCO.TRY[PAS,SYS], Page 3 line 216
2) initialize;
1) PCRPAS.TRY[PAS,SYS] and 2) PCRSCO.TRY[PAS,SYS] 7-05-79 10:39 pages 3,3
2) (*FIND MAX POSSIBLE LINE NUMBER WITH THIS INCREMENT*)
2) maxinc := (99999 DIV increment);
2) IF maxinc > 4000 THEN
2) maxinc := 4000;
2) LOOP
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 3 line 160
1) IF refing OR decnesting OR callnesting THEN
**** File 2) PCRSCO.TRY[PAS,SYS], Page 3 line 226
2) IF counting THEN
2) BEGIN
2) writeln(tty);
2) writeln(tty,'MAXIMUM COUNT: ',maxcounttimes,' AT LINE ',maxcountline*increment:5,'/',maxcountpage:2);
2) IF crossing THEN
2) BEGIN
2) writeln(crosslist);
2) writeln(crosslist,'MAXIMUM COUNT: ',maxcounttimes,' AT LINE ',maxcountline*increment:5,'/',maxcountpage:2);
2) END;
2) END;
2) IF refing OR decnesting OR callnesting THEN
***************
**** File 1) PCRPAS.TRY[PAS,SYS], Page 3 line 165
1) timereport(ttyoutput, ' ');
1) writeln(tty,'REMEMBER TO USE THE /NOHEAD SWITCH WHEN SPOOLING');
1) getnextcall (link_name, link_device);
**** File 2) PCRSCO.TRY[PAS,SYS], Page 3 line 242
2) IF counting THEN
2) rewrite(countfile);
2) timereport(ttyoutput, ' ');
2) getnextcall (link_name, link_device);
***************